home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / t_os / hyakunin / hyakunin.bas next >
BASIC Source File  |  1991-10-18  |  4KB  |  99 lines
  1. 10 '*    百人一首 読み手    * * * * * * * * * * * * * * * * * * * * * *
  2. 20 '*このソフトで百人一首を楽しむには 1.項のCDが必要です。このプログラム
  3. 30 '*  とは別にお求め下さい｡                                            
  4. 40 '*  このプログラムの著作権はPEC00657 WATに有ります。                 
  5. 50 '*  改造､転載は､自由です｡                                            
  6. 60 '*  このプログラムを利用して発生した如何なる損害も補償致しません｡    
  7. 70 '*   CD の百人一首をランダムに選んで､ 和歌を咏います｡                
  8. 80 '*   1.  対象のCDは､以下の構成に成っている(ビクター音楽産業 (株)     
  9. 90 '*      (1) 1トラックから98トラックには1首づつ入っている｡            
  10. 100 '*      (2) 98トラックには3首入っている｡                             
  11. 110 '*   2.  次の歌の開始はPADのAボタンを押してください｡                 
  12. 120 '*       但し､CDを演奏中はボタンが効かない仕様にしていますので       
  13. 130 '*      (1) 演奏が終わってAボタンを押す､または                       
  14. 140 '*      (2) 演奏中から押し続ける｡                                    
  15. 150 '*       いづれかで対応してください｡                                 
  16. 160 '*     (作者補記)･････ もう少し雰囲気を出して見たい方は              
  17. 170 '*                     トーン検出器(キットで2000円位で売ってるやつ)  
  18. 180 '*                   等を利用して｢ハイッ｣と言う元気な声でAボタン信号 
  19. 190 '*                     を生成するのも､お薦め です｡(^_^;)             
  20. 200 '*                     私もこれを自作して使っています｡               
  21. 210 '*      それでは､雅びの世界をお楽しみ下さい｡                         
  22. 220 '* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
  23. 230 COLOR 4,2 : CLS
  24. 240 SYMBOL (100,150)," 小倉百人一首 ",4,10,4
  25. 250 CD PLAY (51,46,0)-(52,28,50)
  26. 260 CDSTAT D%
  27. 270 IF D%(1)=1 GOTO 260
  28. 280 '
  29. 290 COLOR 1,7 : CLS
  30. 300 PRINT
  31. 310 SYMBOL (70,50)," ARE YOU REDY ?",4,5,3
  32. 320 SYMBOL (40,150)," YES ? LET's SAY",4,5,3
  33. 330 SYMBOL (70,250)," ｢いくぞぉ～～｣",4,10,2
  34. 340 IF PTRIG(1)=1 GOTO 370
  35. 350 GOTO 340
  36. 360 '
  37. 370 COLOR 1,7 : CLS
  38. 380 PRINT
  39. 390 SYMBOL (70,50)," ARE YOU REDY ?",4,5,3
  40. 400 SYMBOL (40,150)," YES ? LET's SAY",4,5,3
  41. 410 SYMBOL (20,250),"｢よし｣",12,10,5
  42. 420 IF PTRIG(1)=0 GOTO 440
  43. 430 GOTO 420
  44. 440 RANDOMIZE TIME   '                 サイコロ初期化
  45. 450 DIM UTA(101)     '                 配列変数UTA定義
  46. 460 ' *** SELECT & CHECK WAKA-CARD ***
  47. 470  WAKA=INT(RND*120)
  48. 480 IF WAKA>100 GOTO 470
  49. 490 COLOR 1,7 : CLS : REPLAYCNT=0
  50. 500  PRINT
  51. 510  PRINT WAKA
  52. 520   IF 1<=UTA(WAKA) THEN GOTO 470 ELSE UTA(WAKA)=1
  53. 530 CLS :  PRINT
  54. 540 PRINT WAKA
  55. 550    FOR I=0 TO 100
  56. 560     PRINT UTA(I);
  57. 570    NEXT I
  58. 580  REPLAYCNT=REPLAYCNT+1 : PRINT : PRINT "REPLAY=", REPLAYCNT
  59. 590    IF WAKA=0 GOTO *LASTA
  60. 600    IF WAKA=99 GOTO *LASTB
  61. 610    IF WAKA=100 GOTO *LASTC
  62. 620 CD PLAY WAKA
  63. 630   CDSTAT A%
  64. 640   IF A%(1)=1 GOTO 630
  65. 650 *WAITTRIG
  66. 660 IF PTRIG(1)=1 GOTO 680
  67. 670 GOTO 530
  68. 680 TRGACT=PTRIG(1)
  69. 690 COLOR 3,5 : CLS : PRINT
  70. 700 PRINT TRGACT,PTRG(1)
  71. 710 PRINT "準備はいいですか? ｢ハイッ｣と元気良く答えて､LED が消えたら､次いきます｡"
  72. 720 IF TRGACT><TRGLL GOTO 730
  73. 730 TRGLL=TRGACT
  74. 740 IF PTRIG(1)=0 GOTO 470
  75. 750 GOTO 740
  76. 760 *LASTA
  77. 770 ' 99 TRACK の1曲目演奏
  78. 780 '*   CD の百人一首をランダムに選んで､ 和歌を咏います｡                
  79. 790 CD PLAY (50,15,0) - (50,44,50)
  80. 800 CDSTAT A%
  81. 810 IF A%(1)=1 GOTO 800 
  82. 820 GOTO 950
  83. 830 *LASTB
  84. 840  ' 99 TRACK の2曲目演奏
  85. 850 CD PLAY (50,44,51)-(51,11,50)
  86. 860 CDSTAT A%
  87. 870 IF A%(1)=1 GOTO 860
  88. 880 GOTO 950
  89. 890 *LASTC
  90. 900  ' 99 TRACK の3曲目演奏
  91. 910 CD PLAY (51,12,0)-(51,45,50)
  92. 920 CDSTAT A%
  93. 930 IF A%(1)=1 GOTO 920 
  94. 940 GOTO 950
  95. 950 CD PLAY (51,46,0)-(52,28,50)
  96. 960 CDSTAT D%
  97. 970 IF D%(1)=1 GOTO 960
  98. 980 GOTO *WAITTRIG
  99.